home *** CD-ROM | disk | FTP | other *** search
/ Creating Your Own America Online Web Pages / Creating Your Own America Online Web Pages.iso / TOOLS / WHTTPD / CGI-SRC / SAMPLE.BAS < prev    next >
Visual Basic Tokenized Source  |  1994-06-07  |  1.7 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: Visual Basic Tokenized Source (other/visualBasicTokenizedSource).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) magic Unsupported
1% dexvert Memotech MTX BASIC source (document/memotechMTXBASICSource) ext Unsupported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% TrID Visual Basic 3 source (tokenized) default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 05 02 00 0f 00 5f 01 | 5f 01 09 00 01 02 03 04 |......_.|_.......|
|00000010| 06 0b 05 08 0a 50 11 50 | 11 94 01 00 00 1a 00 00 |.....P.P|........|
|00000020| 00 a3 00 5a 00 00 00 00 | 00 62 00 00 00 00 00 00 |...Z....|.b......|
|00000030| 00 e2 00 09 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 d2 00 43 01 00 00 00 | 00 00 00 7d 00 c8 00 00 |...C....|...}....|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 72 00 00 |........|.....r..|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 94 01 00 00 00 00 00 | 04 4d 61 69 6e 00 00 00 |........|.Main...|
|00000080| 0c 45 72 72 6f 72 48 61 | 6e 64 6c 65 72 00 00 00 |.ErrorHa|ndler...|
|00000090| 07 43 6c 65 61 6e 75 70 | 90 00 00 0f 43 47 49 45 |.Cleanup|....CGIE|
|000000a0| 72 72 30 72 48 61 6e 64 | 6c 65 72 29 01 00 0f 43 |rr0rHand|ler)...C|
|000000b0| 47 49 45 72 72 6f 72 48 | 61 6e 64 6c 65 72 b5 00 |GIErrorH|andler..|
|000000c0| 00 0e 43 47 49 5f 49 4e | 50 55 54 5f 46 49 4c 45 |..CGI_IN|PUT_FILE|
|000000d0| e8 00 00 0f 43 47 49 5f | 4f 55 54 50 55 54 5f 46 |....CGI_|OUTPUT_F|
|000000e0| 49 4c 45 15 01 00 06 53 | 61 6d 70 6c 65 fb 00 00 |ILE....S|ample...|
|000000f0| 0c 41 64 6d 69 6e 43 6f | 6e 74 61 63 74 00 00 00 |.AdminCo|ntact...|
|00000100| 02 4f 46 02 01 00 0f 43 | 47 49 5f 43 6f 6e 74 65 |.OF....C|GI_Conte|
|00000110| 6e 74 46 69 6c 65 00 00 | 00 03 62 75 66 00 00 00 |ntFile..|..buf...|
|00000120| 03 49 4e 46 00 00 00 08 | 43 47 49 5f 4d 61 69 6e |.INF....|CGI_Main|
|00000130| 3c 01 00 10 43 47 49 5f | 45 78 74 72 61 48 65 61 |<...CGI_|ExtraHea|
|00000140| 64 65 72 73 00 00 00 0f | 43 47 49 5f 45 78 74 72 |ders....|CGI_Extr|
|00000150| 61 48 65 61 64 65 72 4c | 01 00 03 4b 65 79 8c 01 |aHeaderL|...Key..|
|00000160| 00 05 56 61 6c 75 65 63 | 01 00 13 43 47 49 5f 4e |..Valuec|...CGI_N|
|00000170| 75 6d 45 78 74 72 61 48 | 65 61 64 65 72 73 79 01 |umExtraH|eadersy.|
|00000180| 00 12 43 47 49 5f 4e 75 | 6d 41 63 63 65 70 74 54 |..CGI_Nu|mAcceptT|
|00000190| 79 70 65 73 00 00 00 0f | 43 47 49 5f 41 63 63 65 |ypes....|CGI_Acce|
|000001a0| 70 74 54 79 70 65 73 00 | 00 00 04 53 65 6e 64 68 |ptTypes.|...Sendh|
|000001b0| 01 00 00 18 00 00 00 76 | 00 05 00 00 00 0d 46 2d |.......v|......F-|
|000001c0| 00 00 00 76 00 08 00 00 | 00 0d 07 20 0d 0e 2a 00 |...v....|... ..*.|
|000001d0| 00 76 00 13 00 00 00 0d | 07 20 2a 20 53 41 4d 50 |.v......|. * SAMP|
|000001e0| 4c 45 2e 42 41 53 20 2a | 2d 00 00 76 00 08 00 00 |LE.BAS *|-..v....|
|000001f0| 00 0d 07 20 0d 0e 2a 00 | 00 76 00 02 00 00 00 00 |... ..*.|.v......|
|00000200| 00 76 00 31 00 00 00 20 | 53 61 6d 70 6c 65 20 43 |.v.1... |Sample C|
|00000210| 47 49 20 62 61 63 6b 2d | 65 6e 64 20 66 6f 72 20 |GI back-|end for |
|00000220| 4e 43 53 41 20 68 74 74 | 70 64 20 66 6f 72 20 57 |NCSA htt|pd for W|
|00000230| 69 6e 64 6f 77 73 2d 00 | 00 76 00 02 00 00 00 00 |indows-.|.v......|
|00000240| 00 76 00 44 00 00 00 20 | 52 65 71 75 69 72 65 73 |.v.D... |Requires|
|00000250| 20 70 72 6f 63 65 64 75 | 72 65 73 20 69 6e 20 43 | procedu|res in C|
|00000260| 47 49 2e 42 41 53 2e 20 | 53 65 74 20 74 68 65 20 |GI.BAS. |Set the |
|00000270| 56 42 20 70 72 6f 6a 65 | 63 74 20 6f 70 74 69 6f |VB proje|ct optio|
|00000280| 6e 73 20 74 6f 20 75 73 | 65 00 00 76 00 20 00 00 |ns to us|e..v. ..|
|00000290| 00 20 53 75 62 20 4d 61 | 69 6e 20 61 73 20 74 68 |. Sub Ma|in as th|
|000002a0| 65 20 73 74 61 72 74 75 | 70 20 66 6f 72 6d 2e 00 |e startu|p form..|
|000002b0| 00 76 00 02 00 00 00 00 | 00 76 00 30 00 00 00 20 |.v......|.v.0... |
|000002c0| 41 75 74 68 6f 72 3a 20 | 20 20 52 6f 62 65 72 74 |Author: |  Robert|
|000002d0| 20 42 2e 20 44 65 6e 6e | 79 20 3c 72 64 65 6e 6e | B. Denn|y <rdenn|
|000002e0| 79 40 6e 65 74 63 6f 6d | 2e 63 6f 6d 3e 00 00 76 |y@netcom|.com>..v|
|000002f0| 00 11 00 00 00 0d 0b 20 | 4d 61 79 20 32 34 2c 20 |....... |May 24, |
|00000300| 31 39 39 34 72 00 00 76 | 00 05 00 00 00 0d 46 2d |1994r..v|......F-|
|00000310| 00 00 00 3b 01 09 00 08 | 00 ff ff ff ff ff ff ff |...;....|........|
|00000320| ff 0e 00 04 00 03 01 00 | 08 00 43 47 49 5f 4d 61 |........|..CGI_Ma|
|00000330| 69 6e 01 00 30 60 03 00 | 00 18 00 00 00 76 00 02 |in..0`..|.....v..|
|00000340| 00 00 00 00 00 76 00 16 | 00 00 00 20 20 20 53 61 |.....v..|...   Sa|
|00000350| 6d 70 6c 65 20 43 47 49 | 20 73 63 72 69 70 74 00 |mple CGI| script.|
|00000360| 00 76 00 02 00 00 00 00 | 00 76 00 2b 00 00 00 20 |.v......|.v.+... |
|00000370| 52 65 74 75 72 6e 73 20 | 61 20 72 65 70 6f 72 74 |Returns |a report|
|00000380| 20 69 6e 20 48 54 4d 4c | 20 6f 66 20 74 68 65 20 | in HTML| of the |
|00000390| 43 47 49 20 64 61 74 61 | 00 00 00 76 00 02 00 00 |CGI data|...v....|
|000003a0| 00 00 00 76 00 47 00 00 | 00 20 43 47 49 2e 42 41 |...v.G..|. CGI.BA|
|000003b0| 53 20 63 6f 6e 74 61 69 | 6e 73 20 74 68 65 20 22 |S contai|ns the "|
|000003c0| 53 75 62 20 4d 61 69 6e | 28 29 22 20 65 6e 74 72 |Sub Main|()" entr|
|000003d0| 79 20 70 6f 69 6e 74 2e | 20 54 68 61 74 20 63 6f |y point.| That co|
|000003e0| 64 65 20 69 6e 69 74 69 | 61 6c 69 7a 65 73 00 00 |de initi|alizes..|
|000003f0| 00 76 00 48 00 00 00 20 | 74 68 65 20 43 47 49 20 |.v.H... |the CGI |
|00000400| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2c 20 74 68 65 |environm|ent, the|
|00000410| 6e 20 63 61 6c 6c 73 20 | 43 47 49 5f 4d 61 69 6e |n calls |CGI_Main|
|00000420| 28 29 2c 20 68 65 72 65 | 2e 20 41 74 20 74 68 69 |(), here|. At thi|
|00000430| 73 20 70 6f 69 6e 74 2c | 20 74 68 65 20 00 00 76 |s point,| the ..v|
|00000440| 00 46 00 00 00 20 6f 75 | 74 70 75 74 20 66 69 6c |.F... ou|tput fil|
|00000450| 65 20 69 73 20 6f 70 65 | 6e 2c 20 74 68 65 20 69 |e is ope|n, the i|
|00000460| 6e 70 75 74 20 66 69 6c | 65 20 28 69 66 20 61 6e |nput fil|e (if an|
|00000470| 79 29 20 69 73 20 4e 4f | 54 2e 20 55 73 65 20 74 |y) is NO|T. Use t|
|00000480| 68 65 20 53 65 6e 64 28 | 29 00 00 76 00 44 00 00 |he Send(|)..v.D..|
|00000490| 00 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 69 73 |. functi|on to is|
|000004a0| 6f 6c 61 74 65 20 79 6f | 75 72 73 65 6c 66 20 66 |olate yo|urself f|
|000004b0| 72 6f 6d 20 74 68 65 20 | 6f 75 74 70 75 74 20 66 |rom the |output f|
|000004c0| 69 6c 65 20 6e 75 6d 62 | 65 72 2c 20 61 6e 64 20 |ile numb|er, and |
|000004d0| 61 73 20 00 00 76 00 19 | 00 00 00 20 61 20 63 6f |as ..v..|... a co|
|000004e0| 6e 76 65 6e 69 65 6e 74 | 20 73 68 6f 72 74 63 75 |nvenient| shortcu|
|000004f0| 74 2e 75 00 00 76 00 02 | 00 00 00 00 00 0a 00 47 |t.u..v..|.......G|
|00000500| 00 38 03 27 20 4e 4f 54 | 45 3a 20 41 4c 57 41 59 |.8.' NOT|E: ALWAY|
|00000510| 53 20 75 73 65 20 46 72 | 65 65 46 69 6c 65 28 29 |S use Fr|eeFile()|
|00000520| 20 74 6f 20 67 65 74 20 | 66 69 6c 65 20 6e 75 6d | to get |file num|
|00000530| 62 65 72 73 20 69 66 20 | 79 6f 75 20 6e 65 65 64 |bers if |you need|
|00000540| 20 74 6f 20 6f 70 65 6e | 00 00 00 76 00 18 00 00 | to open|...v....|
|00000550| 00 0d 07 20 66 69 6c 65 | 73 20 69 6e 20 79 6f 75 |... file|s in you|
|00000560| 72 20 63 6f 64 65 21 00 | 00 76 00 02 00 00 00 00 |r code!.|.v......|
|00000570| 00 58 00 06 00 09 01 00 | 01 00 00 00 10 fc 00 6c |.X......|.......l|
|00000580| 00 16 00 07 00 0c 00 0d | 00 fb 00 00 00 00 10 ed |........|........|
|00000590| 00 1c 00 17 00 17 00 43 | 6f 6e 74 65 6e 74 2d 74 |.......C|ontent-t|
|000005a0| 79 70 65 3a 20 74 65 78 | 74 2f 68 74 6d 6c 00 ee |ype: tex|t/html..|
|000005b0| 00 24 00 01 00 8c 01 00 | 10 ed 00 06 00 00 00 00 |.$......|........|
|000005c0| 00 00 00 ee 00 24 00 01 | 00 8c 01 00 10 ed 00 2c |.....$..|.......,|
|000005d0| 00 27 00 27 00 3c 48 54 | 4d 4c 3e 3c 48 45 41 44 |.'.'.<HT|ML><HEAD|
|000005e0| 3e 3c 54 49 54 4c 45 3e | 54 65 73 74 20 72 65 73 |><TITLE>|Test res|
|000005f0| 75 6c 74 73 3c 2f 54 49 | 54 4c 45 3e 00 ee 00 24 |ults</TI|TLE>...$|
|00000600| 00 01 00 8c 01 00 10 ed | 00 28 00 22 00 22 00 3c |........|.(.".".<|
|00000610| 48 31 3e 54 65 73 74 20 | 52 65 73 75 6c 74 73 3c |H1>Test |Results<|
|00000620| 2f 48 31 3e 3c 2f 48 45 | 41 44 3e 3c 42 4f 44 59 |/H1></HE|AD><BODY|
|00000630| 3e 00 00 ee 00 24 00 01 | 00 8c 01 00 10 ed 00 20 |>....$..|....... |
|00000640| 00 1b 00 1b 00 48 65 6c | 6c 6f 20 66 72 6f 6d 20 |.....Hel|lo from |
|00000650| 56 69 73 75 61 6c 20 42 | 61 73 69 63 21 3c 50 3e |Visual B|asic!<P>|
|00000660| 00 ee 00 24 00 01 00 8c | 01 00 00 0a 00 1d 00 ff |...$....|........|
|00000670| ff 20 20 20 20 53 65 6e | 64 20 28 22 3c 2f 42 4f |.    Sen|d ("</BO|
|00000680| 44 59 3e 3c 2f 48 54 4d | 4c 3e 22 29 00 00 00 00 |DY></HTM|L>")....|
|00000690| 00 39 00 09 00 08 00 ff | ff ff ff ff ff ca 01 19 |.9......|........|
|000006a0| 00 04 00 03 00 fd       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+